1 CLR:POKE53280,7:POKE53281,0:INPUT"[147][158][205]ONAT";M:INPUT"[202]AHR";J
2 N=INT(365.25*(J+(M<3)))+INT(30.6*(M+1-(M<3)*12))+1-2:N=N-INT(N/7)*7:RESTORE
3 DIMM$(12),M(12):FORI=1TO12:READM$(I):NEXTI:FORI=1TO12:READM(I):NEXTI
4 REM--------HAUPTROUTINE-------
5 IFJ/4=INT(J/4)THENS=1:IFM=2THENM(M)=M(M)+1
6 PRINT"[147]   [167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]"
7 FORI=1TO6:PRINT"   [167]                               [165]"
8 PRINT"   [167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]"
9 NEXT:PRINT"   [167]                               [165]"
10 PRINT"    [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
11 PRINT"";M$(M);"[159]";J
12 PRINT"[150][211]O[157][157][205]O[157][157][196]I[157][157][205]I[157][157][196]O[157][157][198]R[157][157][211]A":W=1
13 X=5+N*2
14 FORI=1TO7-N:POKE211,10:POKE214,X:SYS58640:PRINTW:W=W+1:X=X+2:NEXTI
15 FORX=14TO30STEP4:FORY=5TO17STEP2:POKE211,X:POKE214,Y:SYS58640
16 IFW<=M(M)THENPRINTW:W=W+1:NEXTY,X
17 FORI=9TO34:POKE55296+I+5*40,10:NEXTI:POKE198,0:WAIT198,1:GETG$:IFG$=" "THEN1
18 DATA"[202]ANUAR","[198]EBRUAR","[155][205]AERZ","[193]PRIL","[205]AI","[129][202]UNI","[129][202]ULI","[129][193]UGUST"
19 DATA"[158][211]EPTEMBER","[158][207]KTOBER","[152][206]OVEMBER","[196]EZEMBER"
20 PRINT"[147]":DATA31,28,31,30,31,30,31,31,30,31,30,31